УКООПСПІЛКА ПОЛТАВСКИЙ КООПЕРАТИВНЫЙ ИНСТИТУТ Кафедра информационно-вычислительных систем Контрольная работа по дисциплине «Компьютерная техника и программирование» Вариант 0 Выполнил: Проверил: Полтава 2002 Задание 1 Определить пористость материалов по формуле (П, %):
где Р0 — объемная масса, кг/м3; Р — истинная плотность, кг/м3. Постановка задачи Раздел 1. Организационно-экономическая сущность Имя задачи PORIST  Цель решения автоматизация математических вычислений  Периодичность решения по запросу пользователя  Пользователи математик, товаровед  Источники входной информации сертификаты на товары, математические и справочные таблицы  Форма представления результатов видеограмма с отображением пористости материала  Раздел 2. Описание данных 2.1. Выходные данные 2.1.1. Перечень выходных форм (сообщений) Выходная форма (сообщение)  № п/п Название формы Тип Форма представления Идентификатор формы  1 2 3 4 5  1 Расчет пористости материала Видеограмма Значение результата PORIST  2.1.2. Описание выходных форм (сообщений) Реквизиты форм  № п/п Название реквизита Идентификатор выходной формы (сообщения) Ед. изм. Вид (тип, класс), формат Идентификатор реквизита  1 2 3 4 5 6  1 Пористость материала PORIST % 9(2).99 П  2.2. Входные данные 2.2.1. Перечень входных форм (сообщений) Входная форма (сообщение)  № п/п Название формы Тип Форма представления Идентификатор формы  1 2 3 4 5  1 Сертификат на товар Бланк документа Документ СЕРТ  2 Таблица плотностей материалов Бланк документа Документ ТПЛ  2.2.2. Описание входных форм Реквизиты форм  № п/п Название реквизита Идентификатор входной формы Ед. изм. Вид (тип, класс), формат Идентификатор реквизита  1 2 3 4 5 6  1 Объемная масса СЕРТ кг/м3 9(4).99 P0  2 Истинная плотность ТПЛ кг/м3 9(4).99 Р  Раздел 3. Алгоритмизация 3.1. Математическое описание вычислительного алгоритма № п/п Математическая формула  1 2  1 
 3.2. Распределение памяти ПЭВМ Идентификатор P0 Р П  Переменная, константа P0 P Por  3.3. Тип алгоритма Тип алгоритма — линейный 3.4. Блок-схема алгоритма
Программа program PORIST; var P0, P, Por: real; begin writeln('Введите объемную массу, кг/куб.м'); readln(P0); writeln('Введите истинную плотность, кг/куб.м'); readln(P); Por := (1 - P0 / P) * 100; writeln('Пористость материала ', Por:5:2, '%'); end. Результаты работы программы Введите объемную массу, кг/куб.м 423.6 Введите истинную плотность, кг/куб.м 568.2 Пористость материала 25.45% Задание 2 Определить значение числа Х по формуле:
Постановка задачи Раздел 1. Организационно-экономическая сущность Имя задачи FUNCX  Цель решения автоматизация математических вычислений  Периодичность решения по запросу пользователя  Пользователи математик, товаровед  Источники входной информации сертификаты на товары  Форма представления результатов видеограмма с отображением значения числа Х  Раздел 2. Описание данных 2.1. Выходные данные 2.1.1. Перечень выходных форм (сообщений) Выходная форма (сообщение)  № п/п Название формы Тип Форма представления Идентификатор формы  1 2 3 4 5  1 Расчет значения числа Х Видеограмма Значение результата FUNCX  2.1.2. Описание выходных форм (сообщений) Реквизиты форм  № п/п Название реквизита Идентификатор выходной формы (сообщения) Ед. изм. Вид (тип, класс), формат Идентификатор реквизита  1 2 3 4 5 6  1 Искомое число FUNCX число 9(2).99 Х  2.2. Входные данные 2.2.1. Перечень входных форм (сообщений) Входная форма (сообщение)  № п/п Название формы Тип Форма представления Идентификатор формы  1 2 3 4 5  1 Сертификат на товар Бланк документа Документ СЕРТ  2.2.2. Описание входных форм Реквизиты форм  № п/п Название реквизита Идентификатор входной формы Ед. изм. Вид (тип, класс), формат Идентификатор реквизита  1 2 3 4 5 6  1 Число a СЕРТ число 9(3).99 a  Раздел 3. Алго...